﻿Public NotInheritable Class frmPresentacion


    Private Sub frmPresentacion_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load        
        TimerPresentacion.Interval = 2000        
        TimerProgressBar.Interval = 100

        TimerPresentacion.Enabled = True
        TimerProgressBar.Enabled = True

        progressBar.Value = 0

    End Sub

    Private Sub TimerPresentacion_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerPresentacion.Tick
        TimerPresentacion.Enabled = False
        TimerProgressBar.Enabled = False
        Me.Visible = False
        frmLogin.Show()
    End Sub


    Private Sub TimerProgressBar_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerProgressBar.Tick
        progressBar.Value = progressBar.Value + 5
    End Sub

End Class
